MacWorld 1997 November/Macworld (1997-11).dmg/Updaters/Planet Goodies 7.image/Serial2ISDN/Scripts ARA/US/S2ISDN for PPP 64K/S2ISDN for PPP 64K

Text File | 1997-04-07 | 8KB | 325 lines

!  Serial2ISDN for PPP 64K.
!
!  This script is supposed to be used with the Euronis Planet-ISDN card and
!  the control panel Serial2ISDN (which is used to create a virtual serial port
!  for the ISDN card for ARA or PPP to use)
!
!  Jean Christophe ISTIN & Frédéric ISRAEL for SAGEM/SAT France
!  Version : 1.0.5
!  Date    : March 25, 1997
!
!  'mlts' resource info for this adapter:
!    byte 1 == 00 -> modem has NO built-in reliability protocols
!    byte 2 == 00 -> reserved by Apple
!    byte 3 == 1E -> max hex chars in varstr 7 (30 dec)
!    byte 4 == 00 -> max hex chars in varstr 8
!    byte 5 == 00 -> max hex chars in varstr 9
!
!•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
! Set up Serial2ISDN - label range is 1-10
!•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
@ORIGINATE
@ANSWER
!
! ========== LABEL 1 & 2 -------------------------------------------------------
!
@LABEL 1
!
note "Serial2ISDN for PPP 64K." 2
pause 10
!
settries 0
! ---------- control if Serial2ISDN is openned
@LABEL 2
!
flush
matchclr
matchstr 1 3 "OK"
!
write "AT\13"
matchread 30
!
inctries
iftries 2 71
lbreak
jump 2
!
! ---------- control version of Serial2ISDN
@LABEL 3
!
flush
matchclr
matchstr 1 4 "Version 1.1"
!
write "AT*VERS\13"
matchread 30
!
jump 100
!
! ---------- PPP Parameter
@LABEL 4
!
flush
matchclr
matchstr 1 9 "OK"
!
write "AT*PPP64K\13"
matchread 200
!
jump 100
!
! ========== LABEL 8 -----------------------------------------------------------
! Initialisation de Serial2ISDN
!
! NMP10 requested       (parm 4 == 2) jump to 9
! V41 link requested    (parm 4 == 1) jump to 9
! No V41 link requested (parm 4 == 0) jump to 9
!
@LABEL 8
!
ifstr 4 9 "2"
ifstr 4 9 "1"
ifstr 4 9 "0"
jump 76
!
! ========== LABEL 9 -----------------------------------------------------------
! Fin de la portion de script commune au mode ORIGINATE & ANSWER
!
@LABEL 9
!
note "Serial2ISDN for PPP 64K initialized." 2
pause 10
!
ifANSWER 62
!
! ••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
! ORIGINATE mode. - Dialing
! ••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
! Dial type dispatch
!
! This card has a 31 chars command buffer for dialing but cannot dial several
! strings in a row to form long dial strings. So no break up will take place here.
!
! Parameter 1 contains the full dialstring from the connection document.
! Parameter 3 contains "P" for pulse & "T" for tone dialing.
! Parameter 7, 8 & 9 normally contain the dial string fragments.
! Since break up cannot be used, the parm 1 will be used for dialing
!
! Normal dialing (parm 6 == 0) jump to 19
! Blind  dialing (parm 6 == 1) jump to 19
! Manual dialing (parm 6 == 2) jump to 19
!
ifstr 6 19 "0"
ifstr 6 19 "1"
ifstr 6 19 "2"
jump 76
!
! ========== LABEL 19 ----------------------------------------------------------
! Normal dialing
!
@label 19
!
note "Calling : ^1" 3
write "ATD^1\13"
jump 32
!
!
!•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
!    Connecting - label range is 31-60
!•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
! ========== LABEL 32 ----------------------------------------------------------
!
@LABEL 32
!
matchclr
!
matchstr 1  55 "CONNECT"
matchstr 2  68 "RING\13\10"
!
matchstr 3  73 "NO CARRIER\13\10"
matchstr 4  73 "ERROR\13\10"
matchstr 5  80 "TIME OUT\13\10"
!
matchread 600
!
! If in ANSWER mode, loop back.
! Else in ORIGINATE mode, the modem has timed out.
!
ifANSWER 32
jump 71
!
! ========== LABEL 55 ----------------------------------------------------------
! Connection established
!
@LABEL 55
!
USERHOOK 1
CommunicatingAt 64000
!
! -- Modem error correction link negotiation --
! Userhook 2 informs ARA that a modem-to-modem error
! correcting protocol has been negotiated
!
! USERHOOK 2
!
! -- Compression negotiation --
! Userhook 3 informs ARA that a modem-to-modem compression
! protocol has been negotiated
!
! USERHOOK 3
!
! -- Modem error correction link negotiation --
! Userhook 4 informs ARA that a modem-to-modem error
! correcting NM10 protocol has been negotiated
!
! USERHOOK 4
!
note "Connection established..." 2
pause 50
exit 0
!
! ••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
! Here is ANSWER mode initialization part - label range is 61-70
! ••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
! ========== LABEL 62 ----------------------------------------------------------
! Set the adapter to answer on 1st ring
!
@LABEL 62
!
note "Waiting for call..." 2
pause 10
!
matchclr
matchstr 1 32 "OK"
write "ATS0=1\13"
matchread 30
jump 71
!
! ========== LABEL 68 ----------------------------------------------------------
! RING entry point
! If ORIGINATE mode return to waiting for input.
! Else claim the serial port and return.
!
@LABEL 68
!
ifORIGINATE 32
userhook 1
note "Answering..." 2
jump 32
!
! ••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
! Error messages - label range is 71-100
! ••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
! ========== LABEL 71 ----------------------------------------------------------
! Modem Not Responding
!
@LABEL 71
exit -6019
! ========== LABEL 72 ----------------------------------------------------------
! No Dialtone
!
@LABEL 72
exit -6020
! ========== LABEL 73 ----------------------------------------------------------
! No Carrier or Error
!
@LABEL 73
exit -6021
! ========== LABEL 74 ----------------------------------------------------------
! Busy
!
@LABEL 74
exit -6022
! ========== LABEL 75 ----------------------------------------------------------
! No Answer
!
@LABEL 75
exit -6023
! ========== LABEL 76 ----------------------------------------------------------
! Invalid Varstring Value
!
@LABEL 76
exit -6027
! ========== LABEL 77 ----------------------------------------------------------
! Delayed Number (blacklisted)
!
@LABEL 77
exit -6002 "Delayed Number."
! ========== LABEL 78 ----------------------------------------------------------
! Number forbidden (blacklisted)
!
@LABEL 78
exit -6002 "Number forbidden. Initialize the card to reuse this number."
! ========== LABEL 79 ----------------------------------------------------------
! Blacklist full
@LABEL 79
exit -6002 "Blacklist full. Initialize the card."
! ========== LABEL 80 ----------------------------------------------------------
! Time Out
@LABEL 80
exit -6002 "No response. Time Out elapsed."
! ========== LABEL 100 ---------------------------------------------------------
! Serial2ISDN incompatible
!
@LABEL 100
exit -6002 "Version of Serial2ISDN incompatible."
!
! ••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
! Hang up the adapter - label range is 101-120
! ••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
@HANGUP
! ========== LABEL 101 ---------------------------------------------------------
!
@LABEL 101
!
flush
settries 0
HSReset 0 0 0 0 0 0
!
! ========== LABEL 102 ---------------------------------------------------------
! Drop the adapter into command mode with escape sequence.
! Then tell adapter to hangup.
! Repeat hangup command and escape sequence 3 times max.
!
@LABEL 102
!
flush
matchclr
matchstr 1 103 "OK\13\10"
pause 10
write "+++"
pause 10
matchread 50
!
! ========== LABEL 103 ---------------------------------------------------------
! Pause between data and command mode
!
@LABEL 103
!
pause 20
flush
settries 0
!
! ========== LABEL 104 ---------------------------------------------------------
!
@LABEL 104
!
matchclr
matchstr 1 120 "OK"
write "ATH\13"
flush
matchread 200
inctries
iftries 3 71
jump 104
!
! ========== LABEL 120 ---------------------------------------------------------
!
@LABEL 120
!
exit 0
!
! ••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
! Labels 121-128 are reserved for future emergency hacks.
! ••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••